Amiga ISO Collection/AmigaUtilCD1.iso/Database/Datastore.DMS/in.adf/Install Datastore

Text File | 1995-08-30 | 42.1 KB | 1,734 lines

; $VER: Digita Datastore Installer Script 14/11/94
; Copyright (C) Digita International

;------------------------------------------------------
; ### Variable declarations
(set #ProgName "Datastore")
(set #NumberInstallDisks 1)
(set #DSInstallDisk "DSInstall")
(set #NumNewDSDisks 2)
(set #DSDiskName "Datastore")
(set #DSFilesName "DS-Files")
(set #RamTempFile "RAM:DSTemp")
(set #RamUtils "RAM:DSUtils")
(set #HDSpaceNeededBytes (* (* 1 1024) 1024)) ;1MB free
(set #NumFonts 3)
(set #Font1Name "Condensed60.font")
(set #Font2Name "newtopaz.font")
(set #Font3Name "DGSansSerif.font")
(set #DriverDest "DEVS:Printers")
(set #DSToolDest (cat #DSDiskName ":Datastore"))
(set #HelpTool "HELP")
(set #DocsTool "DEFFILES")
(set #PicsTool "DEFPICTURES")
(set #LanguageTool "LANGUAGE")

;------------------------------------------------------
; ### String declaration
;// Drawer names
(set #DSDrawerName "Datastore")
(set #DSHelpName "Help")
(set #DSDocsName "Databases")
(set #DSPicsName "Pictures")
(set #DSFontsName "Fonts")
(set #LibsDefault "Libs")
(set #DataTypesDrawerName "DataTypes")
(set #ClassesDrawerName "Classes")

;------------------------------------------------------
;// Archive Names
(set #ASLArchiveName "asl.lha")
(set #AmigaGuideArchiveName "Amigaguide.lha")
(set #ProgArchiveName "Datastore.lha")
(set #HelpArchiveName "Help.lha")
(set #DocsArchiveName "Databases.lha")
(set #PicsArchiveName "Pictures.lha")
(set #SystemFontsArchiveName "Fonts.lha")
(set #StartupArchiveName "startup.lha")
(set #MathLibsArchiveName "mathlibs.lha")
(set #DataTypesArchiveName "datatypes.lha")
(set #ClassesArchiveName "classes.lha")
(set #DataTypesLibArchiveName "datatypeslib.lha")
(set #DevicesArchiveName "Devices.lha")


;------------------------------------------------------
;// File Names
(set #LibsSource (cat #DSInstallDisk ":libs"))

;------------------------------------------------------
;// Message strings
(set #BadKick
    (cat #ProgName " benötigt Workbench 2.04 oder höher.")
)

(set #CheckStartup
    (cat "\n\n\nBitte warten...\n\nDas Installationsprogramm prüft ihr System.")
)

(set #DestChoicePrompt
    (cat "\n\n\n Wo soll " #ProgName " installiert werden?")
)

(set #FloppyChoiceMsg
    (cat "Auf Disketten")
)

(set #HardDiskChoiceMsg
    (cat "Auf einer Festplatte")
)

(set #DestChoiceHelp
    (cat "\nKlicken Sie auf  \"Auf einer Festplatte\", wenn "
        "" #ProgName " auf einer Festplatte zu installieren.\n\n"
        "Wählen Sie \"Auf Disketten\" aus, um " #Progname " "
        "auf einem Diskettensatz zu installieren.\n\n\n"
    )
)

(set #HardDiskDestChoiceMsg
    (cat "Wo soll das Verzeichnis \n" #ProgName " installiert werden?")
)

(Set #HDBootedFromFloppy
    (cat "Es scheint, als wollten Sie auf Festplatte installieren, hätten "
         "aber von Diskette gestartet. Dies funktioniert nicht.\n\n"
         "Starten Sie Ihren Amiga ohne Disketten in den Laufwerken neu, "
         "damit er von der Festplatte startet, und installieren Sie "
         "" #ProgName " erneut."
    )
)

(set #PrinterChoicePrompt
    (cat "\n\nMöchten Sie einen Druckertreiber installieren?"
    )
)

(set #PrinterChoicemsg1 "Ja")
(set #PrinterChoicemsg2 "Nein")

(set #PrinterChoice-Help
    (cat "Um in " #ProgName " gespeicherte Daten auch drucken zu können, "
             "müssen Sie einen geeigneten Treiber für Ihren Drucker auswählen. "
             "Klicken Sie auf '" #PrinterChoicemsg1 "', um jetzt einen Treiber "
             "auszuwählen, oder auf '" #PrinterChoicemsg2 "', wenn kein "
             "Druckertreiber installiert werden soll. "
    )
)

(set #HardDiskDestChoiceHelp
    (cat "Klicken Sie auf das gewünschte Zielverzeichnis für " #ProgName
        ", und dann auf Weiter. (Ein Verzeichnis \"" #DSDrawerName
        "\" wird erstellt, und enhält das " #ProgName " -Programm.)"
    )
)

(set #NoDiskSpaceMsg1
    (cat "\n Zu wenig freier Speicher auf der Festplatte vorhanden. "
            ". Sie benötigen mindestens  "
    )
)

(set #NoDiskSpaceMsg2
    (cat "MB freien Speicherplatz.\n\nKlicken Sie auf \"Abbrechen\" um, die "
        "Installation zu beenden, und löschen Sie einige unbenötigte Dateien,"
                "oder klicken Sie auf \"Weiter\", um " #Progname " auf einer "
        "anderen Partition zu installieren."
    )
)

(set #DrawerExistsMsg
    (cat "\nEine Schublade namens \"" #DSDrawerName "\" existiert bereits "
        "auf der ausgewählten Zielpartition.\n\nErsetzen oder ein "
        "anderes Zielverzeichnis wählen?\n\n"
    )
)

(set #DrawerExistsChoice1 "Ersetzen")

(set #DrawerExistsChoice2 "Neues Zielverzeichnis")

(set #DrawerExistsHelp
    (cat "\nIm Verzeichnis  \"#DSDrawerName \" wurde schon"
        "eine Installation gefunden.\n\nKlicken Sie auf \""
        #DrawerExistsChoice1 "\" um sie durch die neue Version von "
        "von " #ProgName " zu ersetzen.\nKlicken Sie auf \"" #DrawerExistsChoice2 "\", um ein "
        "neues Zielverzeichnis auszuwählen.\n\n"
        "Wenn Sie \"" #DrawerExistsChoice1 "\" auswählen, sollten Sie "
        "von allen noch benötigten Dateien zunächst eine Kopie erstellen."
    )
)

(set #InstallChoice1 "Ja - Ersetzen")

(set #InstallChoice2 "Nein")

(set #OldASLLibraryMsg
    (cat "Die ASL.library existiert entweder nicht oder in der falschen Version. "
        #ProgName " benötigt mindestens Version 38 dieser "
        "Bibliothek. Möchten Sie diese jetzt installieren?"
    )
)

(set #OldASLLibraryHelp
    (cat #ProgName " benötigt zum Betrieb mind. Version 38 "
        "der ASL.library (Workbench 2.1 oder höher).\n\n"
        "Wählen Sie \"" #InstallChoice1 "\" , um Version 38 und "
        "anschließend " #ProgName " zu installieren.\n "
                "Wählen Sie  \"" #InstallChoice2 "\", wenn die Version "
        "38 der ASL.library nicht installiert werden soll."
    )
)

(set #OldDiskFontLibraryMsg
    (cat  "Die diskfont.library existiert entweder nicht oder in der falschen Version. "
        #ProgName " benötigt mindestens Version 37 dieser "
        "Bibliothek. Möchten Sie diese jetzt installieren?"

    )
)

(set #OldDiskFontLibraryHelp
    (cat #ProgName " benötigt zum Betrieb mind. Version 37 "
        "der diskfont.library (Workbench 2.04 oder höher).\n\n"
        "Wählen Sie \"" #InstallChoice1 "\" , um Version 38 und "
        "anschließend " #ProgName " zu installieren.\n "
                "Wählen Sie  \"" #InstallChoice2 "\", wenn die Version "
        "38 der ASL.library nicht installiert werden soll und "
                "Sie die Installation abbrechen möchten."
    )
)

(set #OldAmigaGuideLibraryMsg
    (cat "Die amigaguide.library existiert entweder nicht oder in der falschen Version. "
        #ProgName " benötigt mindestens Version 34.11 dieser "
        "Bibliothek. Möchten Sie diese jetzt installieren?"
    )
)

(set #OldAmigaGuideLibraryHelp
    (cat #ProgName " benötigt zum Betrieb mind. Version 34.11 "
        "der amigaguide.library.\n\n"
        "Wählen Sie \"" #InstallChoice1 "\" , um Version 34.11 "
        "zu installieren.\n "
                "Wählen Sie  \"" #InstallChoice2 "\", wenn die Version "
        "34.11 der amigaguide.library nicht installiert werden soll. "
    )
)

(set #OldLocaleLibraryMsg
    (cat "Die locale.library existiert entweder nicht oder in der falschen Version. "
        #ProgName " benötigt mindestens Version 38 dieser "
        "Bibliothek. Möchten Sie diese jetzt installieren?"
    )
)

(set #OldLocaleLibraryHelp
    (cat #ProgName " benötigt zum Betrieb mind. Version 38 "
        "der locale.library.\n\n"
        "Wählen Sie \"" #InstallChoice1 "\" , um Version 38 "
        "zu installieren.\n "
                "Wählen Sie  \"" #InstallChoice2 "\", wenn die Version "
        "38 der locale.library nicht installiert werden soll. "
    )
)

(set #OldParseLibraryMsg
    (cat "Die iffparse.library existiert entweder nicht oder in der falschen Version. "
        #ProgName " benötigt mindestens Version 34 dieser "
        "Bibliothek. Möchten Sie diese jetzt installieren?"
    )
)

(set #OldParseLibraryHelp
    (cat #ProgName " benötigt zum Betrieb mind. Version 34 "
        "der iffparse.library.\n\n"
        "Wählen Sie \"" #InstallChoice1 "\" , um Version 34 "
        "zu installieren.\n "
                "Wählen Sie  \"" #InstallChoice2 "\", wenn die Version "
        "34 der iffparse.library nicht installiert werden soll. "
    )
)

(set #InsertDiskMsg
    (cat "\nBitte folgende Diskette einlegen: \n\n")
)

(set #diskhelp
    (cat "\nWenn Sie sicher sind, daß sich die korrekte Diskette im Laufwerk "
        "befindet, ist deren Name evtl. falsch. \n"
        "Vergewissern Sie sich, daß dem Namen nicht das Präfix "
                " 'copy_of_'voransteht, und daß er keine Leerzeichen enthält.\n\n\n" @askdisk-help
    )
)

(set #Unpackmsg1 "Dateien werden entpackt ")
(set #Unpackmsg2 " nach ")
(set #Unpackmsg3 "\n\nEinen Moment, bitte...")

(set #ArchiveAbortMsg1
    (cat "Fehler beim Entpacken")
)

(set #ArchiveAbortMsg2
    (cat "'. Versuchen Sie, das Programm in ein anderes Verzeichnis "
        "oder eine anderen Partition zu installieren. Sollte auch "
                "dies fehlschlagen, wenden Sie sich bitte an den technischen "
                "Kundendienst. "
    )
)

(set #BlankDiskWarning
    (cat "\nLegen Sie eine Leerdiskette in das interne Laufwerk,\n"
        "und klicken Sie auf \"Weiter\"."
        "\n\nVORSICHT: Alle auf der Diskette vorhandenen Daten "
        "werden gelöscht."
    )
)

(set #FloppyWarningHelp
    (cat     "\nBei diesem Vorgang wird die Diskette im internen "
                "Laufwerk formatiert und damit für den Gebraucht mit "
                "Datastore vorbereitet. "
                "\n\n Erstellen Sie vor der Installation unbedingt "
                "eine Kopie Ihrer Originaldisketten, und bewahren "
                "Sie sie an einem sicheren Ort auf. "
                "Außerdem sollten Sie den Schreibschutz setzen, bevor "
                "Sie auf \"Weiter\" klicken. "
    )
)

(set #NotBlankMsg1
    (cat "\nSie haben die Diskette \"")
)

(set #NotBlankMsg2
    (cat "\" im internen Laufwerk.\n\nBitte ersetzen Sie "
        "diese Diskette durch eine Leerdiskette, bevor "
        "Sie auf \"Weiter\" klicken."
    )
)

(set #FormatWorkingMsg
    (cat "Einen Moment, bitte: Diskette wird formatiert.")
)

(set #FormatError
    (cat     "\nBei dem Versuch, diese Diskette zu formatieren, "
                "ist ein Fehler aufgetreten. "
                "Bitte versuchen Sie es mit einer anderen Diskette "
                "erneut. "
    )
)

(set #FormatErrorHelp
    (cat "\nBeim Formatieren der Diskette ist ein Fehler "
                "aufgetreten. Die Anzahl möglicher Ursachen ist "
                "groß, meist handelt es sich jedoch um einen Defekt "
                "der Diskette oder des Laufwerks.\nBitte probieren "
                "Sie zunächst eine andere Diskette aus und prüfen "
                "Sie das Laufwerk auf einwandfreie Funktion, bevor "
                "Sie sich an unseren Kundendienst wenden. "
    )
)

(set #FormatCompleteMsg1
    (cat " erstell.\n\nNehmen Sie die Diskette aus dem "
        "internen Laufwerk, beschriftenn Sie sie mit \""
    )
)

(set #FormatCompleteMsg2
    (cat "\", und klicken Sie auf \"Weiter\".")
)

(set #FormatChoiceprompt
    (cat "\n" #ProgName " wird bei der Installation zwei Disketten "
                "formatieren und mit Namen versehen. "
        "Weitere Informationen unter 'Hilfe'. Möchten Sie:"
))

(set #FormatChoicemsg1 "Einige Leerdisketten normal formatieren")

(set #FormatChoicemsg2 "Einige Leerdisketten schnell formatieren")

(set #FormatChoice-Help
    (cat "Dieses Installationsprogramm muß zur Installation von " #ProgName " "
             "zunächst zwei Disketten formatieren und mit Namen versehen. "
             "\n\n Wählen Sie '" #FormatChoicemsg1 "', um die Disketten normal "
             "zu formatieren, oder '" #FormatChoicemsg2 "', um Disketten, die "
         "bereits mit dem Fast File System formatiert sind, schnell zu "
             "formatieren. "
))

(set #FloppyFinishedMsg
    (cat "\nNach dem Anklicken von 'Weiter', legen Sie die \"" #DSDiskName
        "\" -Diskette in das interne Diskettenlaufwerk, und starten "
             "Sie Ihren Amiga neu.\n "
    )
)

(set #WorkingMsg (cat "Einen Moment, bitte...\n\nInstalliere " #ProgName))

(set #CreateDiskPrompt "\nFolgende erstellen:\n\n")

(set #ChoiceContinue "Ja")

(set #ChoiceSkip "Diesen Teil überspringen")

(set #CreateDSDiskHelp
    (cat "\nDie Diskette '" #DSDiskName "' enthält alle "
        #ProgName " Programmdateien. \n\nWenn Sie die Diskette "
        #DSDiskName " erstellen möchten, klicken Sie auf '" #ChoiceContinue "'.\n "
                " Wenn Sie diese Diskette nicht erstellen möchten, klicken Sie auf '" #ChoiceSkip "'."
    )
)

(set #CreateFilesDiskHelp
    (cat "\nDie Diskette '" #DSFilesName "' enthält alle "
        #ProgName " Hilfs- und Datendateien. \n\nWenn Sie die Diskette "
        #DSFilesName " erstellen möchten, klicken Sie auf '" #ChoiceContinue "'.\n "
                "Wenn Sie diese Diskette nicht erstellen möchten, klicken Sie auf '" #ChoiceSkip "'."
    )
)



;------------------------------------------------------
; ### Procedure declarations

;------------------------------------------------------
;// routine to get disk specified in '#FileSourceDisk'
(procedure @GetDisk
    (
        (askdisk
            (prompt #InsertDiskMsg #FileSourceDisk)
            (help #diskhelp)
            (dest #FileSourceDisk)
        )
    )
)

;------------------------------------------------------
;// Procedure to decompress file set in '#UnpackFile' to '#UnpackDest'
(procedure @UnpackFiles
    (
      (working #Unpackmsg1 #UnpackFile #Unpackmsg2 #UnpackDest #Unpackmsg3)
        (set ExpandName #UnpackFile)
        (set #ArchiveError 0)
        (set RunLhx
            (cat "DSUtils:Lhx -I -m e \"" ExpandName "\" \"" #UnpackDest "\"")
        )
        (set #ArchiveError (run RunLhx))
        (if (> #ArchiveError 0)
            (ca
                (set #ArchiveAbortMsg (cat #ArchiveAbortMsg1 ExpandName #ArchiveAbortMsg2))
                (abort #ArchiveAbortMsg)
            )
        )
    )
)

;------------------------------------------------------
;// Initial Checks
(procedure @InitialChecks
    (
        ;// Check OS version
        (working #CheckStartup)

        (set #OSVerNum (getversion))
        (set #OSVersion (/ #OSVerNum 65536))

        (if (< #OSVersion 37)
            (abort #BadKick)
        )
        (if (< #OSVersion 39) ; WB2.##
            (set #InstallDataTypes "False")
          (set #InstallDataTypes "True")
        )

        ;// Create temp file in ram: for files
        (if (not (exists #RamTempFile))
            (
                (makedir #RamTempFile (safe))
            )
        )
    (makeassign "DSTemp" #RamTempFile (safe))

        ;// Create temp file in ram: for utils
        (if (not (exists #RamUtils))
            (
                (makedir #RamUtils (safe))
            )
        )
    (makeassign "DSUtils" #RamUtils (safe))

    ;// Set flag if novice user
    (set #UserNovice 0)
    (if (= @user-level 0)
      (
        (set #UserNovice 1)
      )
    )
      (copyfiles
            (source (cat #DSInstallDisk ":Utils"))
            (dest "DSUtils:")
            (all)
            (nogauge)
            (optional "nofail")
        )
      ;// don't copy delete to DSUtils, as it is used to delete DSUtils!
      (copyfiles
            (source (cat #DSInstallDisk ":c"))
            (dest "Ram:")
            (pattern "delete")
            (nogauge)
            (optional "nofail")
        )
      (copyfiles
            (source (cat #DSInstallDisk ":System"))
            (dest "DSUtils:")
            (pattern "format")
            (nogauge)
            (optional "nofail")
        )
    )
)

;------------------------------------------------------
;// Check that ASL library if from WB 2.1 (if not replace)
(procedure @CheckASL
    (
        (set ASLVerNum (getversion (cat #LibsDefault ":ASL.library")))
        (set ASLVer (/ ASLVerNum 65536))
        (if (< ASLVer 38)
            (
        (if (= @user-level 2)
            (
                (set InstallASLLibrary
                  (askbool
                       (prompt #OldASLLibraryMsg)
                       (choices #InstallChoice1 #InstallChoice2)
                       (help #OldASLLibraryHelp)
                       (default 1)
                  )
                    )
                (if (= InstallASLLibrary 1)
                     (
                       (@InstallASL)
                  )
                )
              )
              (
                  (@InstallASL)
              )
            )
          )
        ) ;endif
    )
)

;------------------------------------------------------
;// Procedure to install the asl library
(procedure @InstallASL
    (
    (set #UnpackFile (cat #ArchiveLocation #ASLArchiveName))
    (set #UnpackDest #LibsDest)

        (if (exists (cat #UnpackDest "asl.library"))
            (delete (cat #UnpackDest "asl.library")
                (optional "force")
            )
        )
    (@UnpackFiles)
    )
)

;------------------------------------------------------
;// Check that Locale library is from WB 2.1 (if not replace)
(procedure @CheckLocale
    (
        (set LocaleVerNum (getversion (cat #LibsDefault ":Locale.library")))
        (set LocaleVer (/ LocaleVerNum 65536))
        (if (< LocaleVer 38)
            (
        (if (= @user-level 2)
            (
                (set InstallLocaleLibrary
                  (askbool
                       (prompt #OldLocaleLibraryMsg)
                       (choices #InstallChoice1 #InstallChoice2)
                       (help #OldLocaleLibraryHelp)
                       (default 1)
                  )
                    )
                (if (= InstallLocaleLibrary 1)
                     (
                       (@InstallLocale)
                  )
                )
              )
              (
                  (@InstallLocale)
              )
            )
          )
        ) ;endif
    )
)

;------------------------------------------------------
;// Procedure to install the locale library
(procedure @InstallLocale
    (
        (if (exists (cat #LibsDefault ":locale.library"))
            (
                (delete (cat #LibsDefault ":locale.library")
                    (optional "force")
                )
            )
        )

        (copyfiles
            (source #LibsSource)
            (dest (cat #LibsDefault ":"))
            (pattern "locale.library")
            (optional "force")
        )
    )
)


;------------------------------------------------------
;// Check that IFFParse library if from WB 1.3 (if not replace)
(procedure @CheckParse
    (
        (set ParseVerNum (getversion (cat #LibsDefault ":iffparse.library")))
        (set ParseVer (/ ParseVerNum 65536))
        (if (< ParseVer 34)
            (
        (if (= @user-level 2)
            (
                (set InstallParseLibrary
                  (askbool
                       (prompt #OldParseLibraryMsg)
                       (choices #InstallChoice1 #InstallChoice2)
                       (help #OldParseLibraryHelp)
                       (default 1)
                  )
                    )
                (if (= InstallParseLibrary 1)
                     (
                       (@InstallParse)
                  )
                )
              )
              (
                  (@InstallParse)
              )
            )
          )
        ) ;endif
    )
)

;------------------------------------------------------
;// Procedure to install the iffparse library
(procedure @InstallParse
    (
        (if (exists (cat #LibsDefault ":iffparse.library"))
            (
                (delete (cat #LibsDefault ":iffparse.library")
                    (optional "force")
                )
            )
        )

        (copyfiles
            (source #LibsSource)
            (dest (cat #LibsDefault ":"))
            (pattern "iffparse.library")
            (optional "force")
        )
    )
)


;------------------------------------------------------
;// Check that diskfont library is at least WB 2.1 (if not replace)
(procedure @CheckDiskFont
    (
        (set DFVerNum (getversion (cat #LibsDefault ":diskfont.library")))
        (set DFVer (/ DFVerNum 65536))
        (if (< DFVer 37)
            (
        (if (= @user-level 2)
            (
                (set InstallDiskFontLibrary
                  (askbool
                       (prompt #OldDiskFontLibraryMsg)
                       (choices #InstallChoice1 #InstallChoice2)
                       (help #OldDiskFontLibraryHelp)
                       (default 1)
                  )
                    )
                (if (= InstallDiskFontLibrary 1)
                     (
                       (@InstallDiskFont)
                  )
                ) ;end if
              )
              (
                  (@InstallDiskFont)
              )
            ) ;end if
          )
        ) ;endif
    )
)

;------------------------------------------------------
;// Procedure to install the diskfont library
(procedure @InstallDiskFont
    (
        (if (exists (cat #LibsDefault "diskfont.library"))
            (delete (cat #LibsDefault "diskfont.library")
                (optional "force")
            )
        )
        (copyfiles
            (source #LibsSource)
            (dest (cat #LibsDefault ":"))
            (pattern "diskfont.library")
            (optional "force")
        )
    )
)

;------------------------------------------------------
;** Check that AmigaGuide library is at least version 34.11 (if not replace)
(procedure @CheckAmigaGuide
    (
        (set AGVerNum (getversion (cat #LibsDefault ":amigaguide.library")))
        (set AGVer (/ AGVerNum 65536))
        (set AGRev (- AGVerNum (* AGVer 65536)))
        (if (< AGVer 35)
            (
        (if (< AGRev 11)
            (
                (if (= @user-level 2)
                    (
                        (set InstallAmigaGuideLibrary
                          (askbool
                               (prompt #OldAmigaGuideLibraryMsg)
                               (choices #InstallChoice1 #InstallChoice2)
                               (help #OldAmigaGuideLibraryHelp)
                               (default 1)
                          )
                            )
                        (if (= InstallAmigaGuideLibrary 1)
                             (
                               (@InstallAmigaGuide)
                          )
                        );end if
                      )
                      (
                          (@InstallAmigaGuide)
                      )
                    ) ;end if (user-level)
                  )
                ) ;end if (revision)
          )
        ) ;end if (version)
    )
)

;------------------------------------------------------
;// Procedure to install amigaguide library
(procedure @InstallAmigaGuide
    (
    (set #UnpackFile (cat #ArchiveLocation #AmigaGuideArchiveName))
    (set #UnpackDest #LibsDest)
        (if (exists (cat #UnpackDest "amigaguide.library"))
            (delete (cat #UnpackDest "amigaguide.library")
                (optional "force")
            )
        )
    (@UnpackFiles)
  )
)

;------------------------------------------------------
;// Procedure to unprotect screen fonts if already present
(procedure @UnProtectFonts
    (
        (set #Counter 0)
        (while (< #Counter #NumFonts)
        (
            (set #FontName
                (select #Counter
                    #Font1Name
                    #Font2Name
                    #Font3Name
                )
            )
            (set #CheckFont (tackon #SystemFontsDest #FontName))
            (if (exists #CheckFont)
              (
                (protect #CheckFont "+r+w+e+d")
              )
            )
          (set #Counter (+ #Counter 1))
        )
        )
    )
)

;------------------------------------------------------
;// Procedure to de-archive screen fonts
(procedure @DearchiveScreenFonts
    (
    (set #UnpackFile (cat #ArchiveLocation #SystemFontsArchiveName))
        (set #UnpackDest #SystemFontsDest)
        (@UnpackFiles)
  )
)

;------------------------------------------------------
;// Install to HD or Floppy ?
(procedure @CheckHDorFloppy
    (
        ;// Floppy or HD ?
        (set #FullPath (expandpath "sys:"))
        (if (= #FullPath (cat #DSInstallDisk ":"))
            (set #DiskDefault 1)
            (set #DiskDefault 0)
        )


    ;** set novice user to expert briefly
    (set #UserNovice 0)
    (if (= @user-level 0)
      (
        (user 2)
        (set #UserNovice 1)
      )
    )
      (set #DestinationType
      (askchoice
        (prompt #DestChoicePrompt)
        (choices #HardDiskChoiceMsg
             #FloppyChoiceMsg
        )
        (help #DestChoiceHelp)
        (default #DiskDefault)
      )
    )
    ;** set novice user back to novice
    (if (= #UserNovice 1)
      (user 0)
    )

    (if (= #DestinationType 0)
        (set #DestinationType "Hard")
        (set #DestinationType "Floppy")
    )
    )
)

;------------------------------------------------------
;// Choose hard disk destination for datastore drawer
(procedure @ChooseHDDest
    (
        ;** Find default drawer
        (set #DefaultDest (getassign "Work" "d"))
        (if (= #DefaultDest "")
            (
                (set #DefaultDest (getassign "HD3" "d"))
                (if (= #DefaultDest "")
                    (
                        (set #DefaultDest (getassign "HD2" "d"))
                        (if (= #DefaultDest "")
                (
                (set #DefaultDest (getassign "HD1" "d"))
                (if (= #DefaultDest "")
                  (
                    (set #DefaultDest (getassign "DH1" "d"))
                    (if (= #DefaultDest "")
                      (
                        (set #DefaultDest (getassign "HD0" "d"))
                        (if (= #DefaultDest "")
                          (
                            (set #DefaultDest "DH0:")
                            (if (= #UserNovice 1)
                              (user 2)
                            )
                          )
                        )
                      )
                    )
                  )
                )
              )
            )
          )
        )
            )
        )
        ;** Ask for destination
        (set #DestDrawer
            (askdir
                (prompt #HardDiskDestChoiceMsg)
                (help #HardDiskDestChoiceHelp)
                (default #DefaultDest)
            )
        )
    (if (= #UserNovice 1)
      (user 0)
    )
    )
)


;------------------------------------------------------
;// Find HD Destination and check enough space
(procedure @FindHDDest
    (
        (set DSExists 0)
    (while (= DSExists 0)
            (
          (@ChooseHDDest)
          (while (< (getdiskspace #DestDrawer) #HDSpaceNeededBytes)
            (
              (if (< (getdiskspace #DestDrawer) #HDSpaceNeededBytes)
                (
                            (if (= @user-level 0)
                              (
                                (user 2)
                                (set #UserNovice 1)
                              )
                            )
                  (message #NoDiskSpaceMsg1 (/ (/ #HDSpaceNeededBytes 1024) 1024) #NoDiskSpaceMsg2)
                  (@ChooseHDDest)
                )
                 )
            )
            ) ;end while
            (@CheckExistsAlready)
        )
      );end while
    (if (= #UserNovice 1)
      (user 0)
    )
    )
)

;------------------------------------------------------
;// Procedure to check if Datastore exists already in destination
;// Replace or choose again if so
(procedure @CheckExistsAlready
    (
    (if (exists (tackon #DestDrawer #DSDrawerName))
      (
        (set ChooseAgainAnswer
          (askbool
            (prompt #DrawerExistsMsg)
            (choices #DrawerExistsChoice1 #DrawerExistsChoice2)
            (help #DrawerExistsHelp)
            (default 1)
          )
        )
        (if (= ChooseAgainAnswer 0)
          (
            (set DSExists 0)
          )
          (
            (set DSExists 1)
          )
        )
      )
      (;else
        (set DSExists 1)
      )
    );endif
    )
)

;------------------------------------------------------
;// Create Datastore drawers in chosen destination
(procedure @CreateDrawers
    (
        (working #WorkingMsg)
        (set #InsideHDDest (tackon #DestDrawer #DSDrawerName))
        ;// Make the Datastore drawer
        (makedir #InsideHDDest (infos))

        ;// Make the Help drawer
        (set #HDHelpDest (tackon #InsideHDDest #DSHelpName))
        (makedir #HDHelpDest)

        ;// Make the Docs drawer
        (set #HDDocsDest (tackon #InsideHDDest #DSDocsName))
        (makedir #HDDocsDest (infos))

        ;// Make the Pics drawer
        (set #HDPicsDest (tackon #InsideHDDest #DSPicsName))
        (makedir #HDPicsDest (infos))
    )
)

;------------------------------------------------------
;// set up hard drive destinations
(procedure @SetUpHDProgDests
    (
        (working #WorkingMsg)
        (set #LibsDest (cat #LibsDefault ":"))
        (set #ProgDest (cat #InsideHDDest "/"))
        (set #ProgIcon (cat #ProgDest #ProgName))
        (set #HelpDest (cat #HDHelpDest "/"))
        (set #DocsDest (cat #HDDocsDest "/"))
        (set #PicsDest (cat #HDPicsDest "/"))
      (set #SystemFontsDest (cat "Sys:" #DSFontsName "/"))
    )
)

;------------------------------------------------------
;// set up floppy disk destinations
(procedure @SetUpFloppyProgDests
    (
        (set #ProgDest (cat #DSDiskName ":"))
        (set #HelpDest (cat #DSFilesName ":" #DSHelpName "/"))
        (set #DocsDest (cat #DSFilesName ":" #DSDocsName "/"))
        (set #PicsDest (cat #DSDiskName ":" #DSPicsName "/"))
      (set #SystemFontsDest (cat #DSDiskName ":" #DSFontsName "/"))
    (set #LibsDest (cat #DSDiskName ":Libs/"))
    (set #DataTypesDest (cat #DSDiskName ":Devs/" #DataTypesDrawerName "/"))
    (set #ClassesDest
        (cat #DSDrawerName ":" #ClassesDrawerName "/" #DataTypesDrawerName "/")
    )
    )
)

;------------------------------------------------------
;// Check to make sure that none of the Datastore disks
;// are in the internal drive before creating blank ones.
(procedure @CheckDisks
    (
        (set #NumberDisks (+ #NumberInstallDisks #NumNewDSDisks))
        (set #DiskBlank 1)
        (set n 0)
        (until (OR (= n #NumberDisks) (= #DiskBlank 0))
            (
                (set #CheckDiskName
                    (select n
                        #DSInstallDisk
                        #DSDiskName
                        #DSFilesName
                    )
                )
                (if (= (getassign "df0" "d") (cat #CheckDiskName ":"))
                    (    ;disk is not blank
                        (set #DiskBlank 0)
                    )
                )
                (set n (+ n 1))
            )
        )
    )
)


;------------------------------------------------------
;// Format and name the disk given in #FormatDiskName
(procedure @FormatDisk
    (
        (working #FormatWorkingMsg)
        ;*** USE 2.0 FORMAT COMMAND ***
        (if (= #FormatChoice 0)
            (
                (set #FormatCheck
                    (run ("DSUtils:Format drive=df0: name=%s FFS NOICONS" #FormatDiskName))
                )
            )
            (
                (set #FormatCheck
                    (run ("DSUtils:Format drive=df0: name=%s FFS QUICK NOICONS" #FormatDiskName))
                )
            )
        )
    (if (OR (> #FormatCheck 0) (< #FormatCheck 0))
        (set #NoError 1)
           (set #NoError 0)
    )
        (if (= #NoError 0)
            (
                (if (= #FormatDiskName #DSDiskName)
                    (run "DSUtils:Install2.1 df0:")
                )
            )
        ); endif
    )
)

;------------------------------------------------------
;// routine to check disk in drive ok and format it if so
(procedure @Makedisk
    (
    (set #NoError 1)
    (while (= #NoError 1)
        (
            ;** Make sure that the install disks are not in the drive
            (run "DSUtils:Wait 6")  ;Wait a bit for disk access to stop
            (@CheckDisks)
            (if (= #DiskBlank 0)
              (
                (message #NotBlankMsg1 #CheckDiskName #NotBlankMsg2)
              )
              (
                (set #NoError 1)
                (@FormatDisk)
                (if (= #NoError 1)
                  (
                    (message #FormatError (help #FormatErrorHelp))
                  )
                );endif
              )
            );endif
        )
    );endwhile
  )
)

;------------------------------------------------------
;// Create floppy disk 1
(procedure @CreateDisk1
    (
    ;// Copy system files from install disk to Ram...
    (copyfiles
        (source (cat #DSInstallDisk ":Libs"))
        (dest "RAM:Libs")
        (all)
        (optional "force")
    )
    (copyfiles
        (source (cat #DSInstallDisk ":c"))
        (dest "RAM:c")
        (all)
        (optional "force")
    )
    (copyfiles
        (source (cat #DSInstallDisk ":l"))
        (dest "RAM:l")
        (all)
        (optional "force")
    )
;    (copyfiles
;        (source (cat #DSInstallDisk ":system"))
;        (dest "RAM:system")
;        (all)
;        (optional "force")
;   )
    (copyfiles
      (source (cat #DSInstallDisk ":Devs"))
      (dest "RAM:Devs")
      (all)
      (optional "force")
    )
    (copyfiles
      (source (cat #DSInstallDisk ":prefs"))
      (dest "RAM:prefs")
      (all)
      (optional "force")
    )

        (copyfiles
          (source (cat #DSInstallName ":Locale"))
          (dest "RAM:Locale")
          (all)
          (optional "force")
        )
        ;# Don't want the installer.catalog if German
        (if (= @Language "deutsch")
            (run "ram:delete RAM:Locale/Catalogs/Deutsch/sys/installer.catalog" (safe))
        )

    ;// Now create the first disk
      (message #BlankDiskWarning
          (help #FloppyWarningHelp)
      )
      (set #FormatDiskName #DSDiskName)
      (@Makedisk)

    ;// Now copy all files from RAM to disk 1, then delete them.
    (set #FileSourceDisk #DSDiskName)
    (@GetDisk)

    (copyfiles
        (source "RAM:Libs")
        (dest (cat #DSDiskName ":Libs"))
        (all)
        (optional "force")
    )
        (run "ram:delete RAM:Libs all" (safe))

    (copyfiles
        (source "RAM:l")
        (dest (cat #DSDiskName ":l"))
        (all)
        (optional "force")
    )
        (run "ram:delete RAM:l all" (safe))

(complete 20)

    (copyfiles
        (source "RAM:c")
        (dest (cat #DSDiskName ":c"))
        (all)
        (optional "force")
    )
        (run "ram:delete RAM:c all" (safe))

;    (copyfiles
;        (source "RAM:system")
;        (dest (cat #DSDiskName ":system"))
;        (all)
;        (optional "force")
;    )
;        (run "ram:delete RAM:system all" (safe))

    (copyfiles
      (source "RAM:Devs")
      (dest (cat #DSDiskName ":Devs"))
      (all)
      (optional "force")
    )
        (run "ram:delete RAM:Devs all" (safe))

    (copyfiles
      (source "RAM:prefs")
      (dest (cat #DSDiskName ":prefs"))
      (all)
      (optional "force")
    )
        (run "ram:delete RAM:prefs all" (safe))

    (copyfiles
      (source "RAM:Locale")
      (dest (cat #DSDiskName ":Locale"))
      (all)
      (optional "force")
    )
        (run "ram:delete RAM:Locale all" (safe))

        ;## Now install other devices
        ;## DISK SWAP to get rest of archives
    (set #FileSourceDisk #DSInstallDisk)
    (@GetDisk)


    ;// ... some archives...
    (copyfiles
            (source (cat #DSInstallDisk ":Archive"))
            (dest "DSTemp:")
            (pattern ("~(Datastore.lha|Pictures.lha|Databases.lha|Help.lha)"))
            (optional "force")
          (safe)
        )


        ;## DISK SWAP back again to dearchive to disk
    (set #FileSourceDisk #DSDiskName)
    (@GetDisk)

    (makedir (cat #DSDiskName ":" #DSPicsName) (infos))

    (set #UnpackFile (cat #ArchiveLocation #DevicesArchiveName))
    (set #UnpackDest (cat #DSDiskName ":Devs/"))
    (@UnpackFiles)
        (run (cat "ram:delete " #ArchiveLocation #DevicesArchiveName) (safe))

(complete 30)

        (@DearchiveScreenFonts)
        (run (cat "ram:delete " #ArchiveLocation #SystemFontsArchiveName) (safe))

        (@InstallASL)
        (run (cat "ram:delete " #ArchiveLocation #ASLArchiveName) (safe))

        (@InstallAmigaGuide)
        (run (cat "ram:delete " #ArchiveLocation #AmigaGuideArchiveName) (safe))

    (set #UnpackFile (cat #ArchiveLocation #MathLibsArchiveName))
    (set #UnpackDest (cat #DSDiskName ":Libs/"))
    (@UnpackFiles)
        (run (cat "ram:delete " #ArchiveLocation #MathLibsArchiveName) (safe))

    (set #UnpackFile (cat #ArchiveLocation #StartupArchiveName))
    (set #UnpackDest (cat #DSDiskName ":S/"))
    (@UnpackFiles)
        (run (cat "ram:delete " #ArchiveLocation #StartupArchiveName) (safe))

      (if (= #InstallDataTypes "True")
          (
            ;// Install Datatypes...
            (makedir (cat #DSDiskName ":Devs/" #DataTypesDrawerName))
            (set #UnpackFile (cat #ArchiveLocation #DataTypesArchiveName))
            (set #UnpackDest #DataTypesDest)
            (@UnpackFiles)
            )
        )
        (run (cat "ram:delete " #ArchiveLocation #DataTypesArchiveName) (safe))

(complete 40)

      (if (= #InstallDataTypes "True")
          (
            ;// Install Datatypes Library...
            (set #UnpackFile (cat #ArchiveLocation #DataTypesLibArchiveName))
            (set #UnpackDest (cat #DSDiskName ":Libs/"))
            (@UnpackFiles)
            )
        )
        (run (cat "ram:delete " #ArchiveLocation #DataTypesLibArchiveName) (safe))

      (if (= #InstallDataTypes "True")
          (
            ;// Install Datatypes Classes...
            (makedir (cat #DSDrawerName ":" #ClassesDrawerName))
            (makedir
                (cat #DSDrawerName ":" #ClassesDrawerName "/" #DataTypesDrawerName)
            )
            (set #UnpackFile (cat #ArchiveLocation #ClassesArchiveName))
            (set #UnpackDest #ClassesDest)
            (@UnpackFiles)
            )
        )
        (run (cat "ram:delete " #ArchiveLocation #ClassesArchiveName) (safe))


        ;## DISK SWAP to get rest of archives
    (set #FileSourceDisk #DSInstallDisk)
    (@GetDisk)

    ;// ... some archives...
    (copyfiles
            (source (cat #DSInstallDisk ":Archive"))
            (dest "DSTemp:")
            (pattern ("(Datastore.lha|Pictures.lha)"))
            (optional "force")
          (safe)
        )


        ;## DISK SWAP back again to dearchive to disk
    (set #FileSourceDisk #DSDiskName)
    (@GetDisk)

        (@InstallPictures)
        (run (cat "ram:delete " #ArchiveLocation #PicsArchiveName) (safe))

(complete 50)

        (@InstallProg)
        (run (cat "ram:delete " #ArchiveLocation #ProgArchiveName) (safe))

        (tooltype
            (dest #DSToolDest)
            (setstack 15000)
        )

        (tooltype
            (dest #DSToolDest)
            (settooltype #LanguageTool @Language)
        )
        (tooltype
            (dest #DSToolDest)
            (settooltype #DocsTool #DocsDest)
        )
        (tooltype
            (dest #DSToolDest)
            (settooltype #PicsTool #PicsDest)
        )
        (tooltype
            (dest #DSToolDest)
            (settooltype #HelpTool #HelpDest)
        )
(complete 60)

    )
)

;------------------------------------------------------
;// Create floppy disk 2
(procedure @CreateDisk2
    (
    (set #FileSourceDisk #DSInstallDisk)
    (@GetDisk)
    (copyfiles
            (source (cat #DSInstallDisk ":Archive"))
            (dest "DSTemp:")
            (pattern ("(Databases.lha|Help.lha)"))
            (optional "force")
          (safe)
        )

        ;// Now create the second disk
      (message #BlankDiskWarning
          (help #FloppyWarningHelp)
      )
      (set #FormatDiskName #DSFilesName)
      (@Makedisk)

(complete 70)

        ;// Create the drawers with icons.
    (makedir (cat #DSFilesName ":" #DSDocsName) (infos))

    ;// Now copy all files from RAM to disk 2, then delete them.
    (set #FileSourceDisk #DSFilesName)
    (@GetDisk)

        (@InstallTemplates)
        (run (cat "ram:delete " #ArchiveLocation #DocsArchiveName) (safe))

(complete 80)

        (@InstallHelp)
        (run (cat "ram:delete " #ArchiveLocation #HelpArchiveName) (safe))
    )
)

;------------------------------------------------------
;// Install program files
(procedure @InstallProg
    (
      (working #WorkingMsg)
    (set #UnpackFile (cat #ArchiveLocation #ProgArchiveName))
    (set #UnpackDest #ProgDest)
    (@UnpackFiles)
  )
)

;------------------------------------------------------
;// Install help files
(procedure @InstallHelp
    (
        (working #WorkingMsg)
    (set #UnpackFile (cat #ArchiveLocation #HelpArchiveName))
    (set #UnpackDest #HelpDest)
    (@UnpackFiles)
    )
)

;------------------------------------------------------
;// Install templates
(procedure @InstallTemplates
    (
        (working #WorkingMsg)
    (set #UnpackFile (cat #ArchiveLocation #DocsArchiveName))
    (set #UnpackDest #DocsDest)
    (@UnpackFiles)
    )
)

;------------------------------------------------------
;// Install pictures
(procedure @InstallPictures
    (
        (working #WorkingMsg)
    (set #UnpackFile (cat #ArchiveLocation #PicsArchiveName))
    (set #UnpackDest #PicsDest)
    (@UnpackFiles)
    )
)

;------------------------------------------------------
;// Routine to install printer and fonts
(procedure @AddNewPrinter
    (
    (set #FileSourceDisk #DSInstallDisk)
    (@GetDisk)

    ;// Delete all in DSTemp: first...
        (run (cat "ram:delete DSTemp:#?" ) (safe))
    (set #ChosenDriver "Generic")
    (set #DriverSource (cat #DSInstallDisk ":Drivers"))
        (if (= #DestinationType "Floppy")
        (
            (set #DriverDest (cat #DSDiskName ":Devs/Printers"))
          )
          (
            (set #DriverDest "DEVS:Printers")
                (set #CheckGeneric (cat #DriverDest "/" #ChosenDriver))
                (if (exists #CheckGeneric)
                  (
                    (protect #CheckGeneric "+r+w+e+d")
                  )
                )
          )
        )

    ;// Select printer (or driver) from list...
    (working #WorkingMsg)
    (set #SelectPrt
      (cat "DSUtils:select DSUtils:DSPrinterList")
    )
    (run #SelectPrt (safe))
    (set #ChosenDriver (getenv "wwDriver"))
    (working #WorkingMsg)

    ;// driver chosen so copy it to ram...
    (copyfiles
      (source #DriverSource)
      (dest #RamTempFile)
      (pattern #ChosenDriver)
      (optional "force")
      (nogauge)
    )

    ;// Now decompress Driver 'ChosenDriver' to destination '#RamTempFile'...
    (set #UnpackFile (tackon #RamTempFile #ChosenDriver))
    (set #UnpackDest "DSTemp:")
    (@UnpackFiles)
    (delete #UnpackFile)

    ;// get full uncompressed driver name...
    (run "c:List " #RamTempFile " LFORMAT %s >ENV:wwDriver")
    (set Driver (getenv "wwDriver"))
    (set DriverLen (strlen Driver))
    (set DriverLen (- DriverLen 1))
    (set #ChosenDriver
      (substr Driver 0 DriverLen)
    )
    ;// finally, copy driver to driver destination...
        (if (= #DestinationType "Floppy")
        (
            (set #FileSourceDisk #DSDiskName)
            (@GetDisk)
        )
    )
    (copyfiles
      (source #RamTempFile)
      (dest #DriverDest)
      (pattern #ChosenDriver)
      (optional "force")
    )
  )
)

;------------------------------------------------------
;// Delete any files from Ram and temporary Ram Drawer
(procedure @CleanUp
    (
    (working #WorkingMsg)
    (makeassign "DSTemp" (safe))
        (if (exists #RamTempFile)
        (
                (set DeleteDrawer (cat "ram:delete " #RamTempFile " all force"))
                (Run DeleteDrawer)
            )
        )
    (makeassign "DSUtils" (safe))
        (if (exists #RamUtils)
        (
                (set DeleteDrawer (cat "ram:delete " #RamUtils " all force"))
                (Run DeleteDrawer)
            )
        )
      (delete "Ram:delete"
          (optional "force")
      )
    )
)

;------------------------------------------------------
; ### Main
(complete 0)
(welcome)
(complete 5)
(@InitialChecks) ;// Copies relevent files to ram also
(@CheckHDorFloppy)

(complete 10)

(if (= #DestinationType "Hard")
    (
        ;// HD

    ; Install to Hard-disk
    (if (= #FullPath (cat #DSInstallDisk ":"))
        (Abort #HDBootedFromFloppy)
    )

      (set #ArchiveLocation (cat #DSInstallDisk ":Archive/"))
    (set #FileSourceDisk #DSInstallDisk)
    (@GetDisk)
    (@SetUpHDProgDests)
      (@CheckASL)
      (@CheckLocale)

      ;## if WB2.0 and on Hard disk
        (if (= #OSVersion 37)
            (if (= (getassign "LOCALE") "")
                ;no assign, so assign Locale to RAM:
                (startup #ProgName
                    (prompt #AskLocaleMsg)
                    (help #AskLocaleHelp)
                    (command #AskLocaleCmd)
                )
            )
        )

      (@CheckParse)
        (@CheckDiskFont)
        (@CheckAmigaGuide)
        (@FindHDDest)
(complete 20)
        (@CreateDrawers)

    (@SetUpHDProgDests)
    (set @default-dest #DestDrawer)
        (@UnProtectFonts)
(complete 30)
        (@DearchiveScreenFonts)
(complete 40)
        (@InstallHelp)
(complete 50)
        (@InstallProg)
(complete 60)
        (@InstallTemplates)
(complete 70)
        (@InstallPictures)
(complete 80)
        (tooltype
            (dest #ProgIcon)
            (setstack 15000)
        )

        (tooltype
            (dest #ProgIcon)
            (settooltype #LanguageTool @Language)
        )

        (set DisabledHelp (cat ";" #HelpTool))
        (tooltype
            (dest #ProgIcon)
            (settooltype DisabledHelp (cat #DSHelpName "/"))
        )

        (set DisabledDocs (cat ";" #DocsTool))
        (tooltype
            (dest #ProgIcon)
            (settooltype DisabledDocs (cat #DSDocsName "/"))
        )

        (set DisabledPics (cat ";" #PicsTool))
        (tooltype
            (dest #ProgIcon)
            (settooltype DisabledPics (cat #DSPicsName "/"))
        )
    )
    (
        ;// Floppy
      (set #ArchiveLocation "DSTemp:")
    (@SetUpFloppyProgDests)
        (if (>= @user-level 2) ;expert only
            (
                (set #FormatChoice
                    (askchoice
                        (prompt #FormatChoiceprompt)
                        (choices #FormatChoicemsg1 #FormatChoicemsg2)
                        (help #FormatChoice-help)
                        (default 0)
                    )
                )
            )
        )
        ;// if expert then check user wants to create disk 1
        (if (>= @user-level 2)
            (
                (set #CreateDiskChoice
                    (askbool
                        (prompt (cat #CreateDiskPrompt #DSDiskName))
                        (choices #ChoiceContinue #ChoiceSkip)
                        (help #CreateDSDiskHelp)
                        (default 1)
                    )
                )
            )
          (set #CreateDiskChoice 1)
        )
    (if (= @user-level 0)
      (
        (user 2)
        (set #UserNovice 1)
      )
    )
        (if (= #CreateDiskChoice 1)
            (@CreateDisk1)
        )
    (if (= #UserNovice 1)
      (user 0)
    )

        ;// if expert then check user wants to create disk 2
        (if (>= @user-level 2)
            (
                (set #CreateDiskChoice
                    (askbool
                        (prompt (cat #CreateDiskPrompt #DSFilesName))
                        (choices #ChoiceContinue #ChoiceSkip)
                        (help #CreateFilesDiskHelp)
                        (default 1)
                    )
                )
            )
          (set #CreateDiskChoice 1)
        )
    (if (= @user-level 0)
      (
        (user 2)
        (set #UserNovice 1)
      )
    )
        (if (= #CreateDiskChoice 1)
            (@CreateDisk2)
        )
    (if (= #UserNovice 1)
      (user 0)
    )
    (set @default-dest "")
    )
)

(complete 90)

    (set #InstallPrinter 1)

    (if (< #UserNovice 1) ; Intermediate or Expert only
        (
            (set #InstallPrinter
                (askbool
                    (prompt #PrinterChoicePrompt)
                    (choices #PrinterChoicemsg1 #PrinterChoicemsg2)
                    (help #PrinterChoice-help)
                    (default 0)
                )
            )
        )
    )

(if (= #InstallPrinter 1)
    (
        (@AddNewPrinter)
    )
)

(@CleanUp)
(complete 100)
(if (= #DestinationType "Hard")
    (exit)
    (exit #FloppyFinishedMsg)
)